1 研究問題與動機

1.1 covid19 map

今年三月的時候在臉書看到了紐約時報發布“How to Virus Got Out?”讓我十分印象深刻,從三月初疫情爆發後歐美各國的卻整與死亡人數節節攀升,有關新冠肺炎的消息漫天蓋地,為了解各國疫情,此次連結covid19即時資訊,運用leaflet map呈現出各國疫情嚴重程度與covid19每日最新資訊,讓閱讀者一目了然。

1.2 googletrend of keyword

為了避免疫情擴大,各國積極宣導防疫措施,部分公司為避免疫情擴大便安排員工在家工作,其中,義大利的嚴重程度僅次於中國,而成人網站Pornhub便藉此機會,宣布義大利用戶於今年三月間皆可免費使用原本需收費的Premium「高級服務」,而這優惠雖僅限於義大利用戶,然而在pornhub公告的全球用戶流量報告中,消息公告後網站流量的增長卻超出義大利用戶數。 此次將分為關鍵字與各地區之比較,關鍵字比較以Pornhub、FC2、avgle、18av觀察特定地區對於以上四個成人網站的搜尋次數,地區比較則以Pornhub為主要關鍵字,比較各地區的搜尋次數。

2 作法與步驟(code)

2.1 covid19 map

2.1.2 抓取世界各國的邊際經緯度

3 結果

3.1 covid19 map

## Loading required package: sp
## rgdal: version: 1.5-8, (SVN revision 990)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.0.4, released 2020/01/28
## Path to GDAL shared files: C:/Users/cherl/Documents/R/win-library/3.6/rgdal/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 6.3.1, February 10th, 2020, [PJ_VERSION: 631]
## Path to PROJ shared files: C:/Users/cherl/Documents/R/win-library/3.6/rgdal/proj
## Linking to sp version:1.4-2
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading rgdal.
## ### Welcome to rworldmap ###
## For a short introduction type :   vignette('rworldmap')
## 149 codes from your data successfully matched countries in the map
## 0 codes from your data failed to match with a country code in the map
## 94 codes from the map weren't represented in your data
## Response [https://covid.ourworldindata.org/data/owid-covid-data.xlsx]
##   Date: 2020-06-16 23:31
##   Status: 200
##   Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
##   Size: 3.18 MB
## <ON DISK>  C:\Users\cherl\AppData\Local\Temp\Rtmpy2AoUK\file16042a9e2bd.xlsx

4 結論

4.1 covid19 map

由於時區的不同,每個國家資料更新的時間也不同,output僅呈現當天的部分。 運用Shiny做的covid19地圖僅用單一選項呈現。

5 其他

5.1 課堂筆記

###大部分筆記皆在程式註解當中

應統報告mask01~03合起來為一個主題 01下載csv後讀入資料 02自動連結網站讀資料,不用畫csv,並在地圖上標示出經緯度,畫出地圖(leaflet套件) 03視覺化(熱力圖之類的可以不用進入R,他是html,但若要自動更新網頁內容需要用shiny的套件)

02直接讀取網址的資料,只要重新執行程式就可以更新資料 加分:不同的圖示表示資訊,例如美食地圖以美式、日式、韓式分類,用不同圖示標示 熱力圖:那些地方發生頻率高就顏色深,反之 leaflet可能做不出來的:用新冠肺炎的確診數來畫出各縣市嚴重程度,但需要有鄉鎮縣市的邊界資料 ,套件未必有這麼細節提供台灣鄉鎮市區邊界的資料,若要那麼細緻可能沒辦法。 02mask2 是讀取.json檔案(需安裝其他套件) 02mask1 是讀取.csv檔案,因為政府的open data格式常常是.json 資料的處理越複雜,需要寫指令的就會越高分

r markdoen 的shinny沒有排版功能 選項一定在上面 結果一定在下面 程式較shinny app簡單 inputPanel 選項設定: sliderInput 拉BAR selectInput 選項-> choice=>選單內容 select=>預設值使用者選取後程式接受了會當成文字變數,但設定仍要寫成vector數值型 renderPlot 畫結果: 原來的 r 程式碼 需與inputPanel連結,將inputPanel內選好的參數回傳到R程式碼 數學:kernel density estimation 無母數估計

05-wordcloud2_shiny wordcloud2 非R內建的畫圖程式,是額外安裝的套件,要另外找shiny底下怎麼打 例如:leafler in r shiny

把R程式碼寫好,設計選項,找出shiny底下程式碼的寫法對不對,參數以name = input$name的方式做調整、修改

5.2 資料來源

COVID19即時資訊:https://ourworldindata.org/coronavirus-data 國家邊界:應用統計 MOODLE -> leaflet_rworldmap